<%@LANGUAGE=VBScript%>

<%
    Response.ContentType = text/html

    Dim docXML
    Dim docXSL

    Set docXML = Server.CreateObject(MSXML2.DOMDocument.3.0)
    Set docXSL = Server.CreateObject(MSXML2.DOMDocument.3.0)

    docXML.ValidateOnParse = True
    docXSL.ValidateOnParse = True

    docXML.load Server.MapPath(planetes.xml)
    docXSL.load Server.MapPath(planetes.xsl)

    strOutput = docXML.transformNode(docXSL)

    Response.Write strOutput
%>

